home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / clshell.clssa < prev    next >
Text File  |  1992-10-26  |  1KB  |  52 lines
  1. /***********************************************************************
  2.   GADGET: "clariSSA-Shell" "1" AUTO TYP: "?"
  3.  
  4.   $DAT >>clShell.clssa<<   27 Oct 1992 - (C)1992 ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS clariSSA
  9. OPTIONS FAILAT 100
  10.  
  11.   PubScreenName = "SSA Screen"
  12.  
  13.   TITEL = 'CON:0/12/640/170/clariSSA Shell/ALT0/12/40/60/CLOSE/SCREEN'PubScreenName
  14.  
  15.   FailAt 99
  16.   AltFail=RESULT
  17.   Adresse=ADDRESS()
  18.  
  19.   IF OPEN('SHELL',TITEL) THEN DO
  20.     SetBasicScreen FRONT TO 0 0
  21.     DO WHILE (~EOF('SHELL'))
  22.       CALL WRITECH('SHELL','clSSA >')
  23.       CMD = READLN('SHELL')
  24.       IF ~EOF('SHELL') THEN DO
  25.         IF CMD = '?' | CMD="HELP" THEN DO
  26.           call WRITELN('SHELL','Informationen entnehmen Sie bitte dem Help-Requester.')
  27.           HelpRequester REQ
  28.         END
  29.         ELSE DO
  30.  
  31.           CMD
  32.  
  33.           SELECT
  34.             WHEN RC >= 40 THEN DO
  35.               call WRITELN('SHELL','Unbekannter Befehl')
  36.             END
  37.             WHEN RC = 0  THEN DO
  38.               IF RESULT ~= 'RESULT' THEN call WRITELN('SHELL',RESULT)
  39.             END
  40.             OTHERWISE
  41.               DO
  42.                 call WRITELN('SHELL','FehlerNummer: 'RC)
  43.               END
  44.           END
  45.         END
  46.       END
  47.     END
  48.     CALL CLOSE ('SHELL')
  49.   END
  50.   FailAt AltFail
  51.  
  52. exit